home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / InOut.DEF < prev    next >
Text File  |  1988-03-15  |  864b  |  33 lines
  1. (********************************************************************************
  2.  
  3. Name         : InOut.DEF
  4. Version      : 1.0
  5. Purpose      : Fromatted Input Output
  6. Author       : ms
  7. State        : Only procedures implemented that are needed by dec68k
  8. Modified     : 26.3.86  10:45  ms
  9.  
  10. ********************************************************************************)
  11.  
  12. DEFINITION MODULE InOut;
  13.  
  14. VAR inOutDone: BOOLEAN;
  15.  
  16. PROCEDURE OpenInput(ext: ARRAY OF CHAR);
  17. PROCEDURE CloseInput;
  18.  
  19. PROCEDURE OpenOutput(ext: ARRAY OF CHAR);
  20. PROCEDURE CloseOutput;
  21.  
  22. PROCEDURE Read(VAR ch: CHAR);
  23. PROCEDURE ReadString(VAR st: ARRAY OF CHAR);
  24.  
  25. PROCEDURE Write(ch: CHAR);
  26. PROCEDURE WriteLn;
  27. PROCEDURE WriteString(st: ARRAY OF CHAR);
  28. PROCEDURE WriteCard(c: LONGCARD; s: CARDINAL);
  29. PROCEDURE WriteInt(i: LONGINT; s: CARDINAL);
  30. PROCEDURE WriteHex(i: LONGINT; s: CARDINAL);
  31.  
  32. END InOut.
  33.